home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / graphics / aim_xtra.arc / DEMCOPY.AIM < prev    next >
Text File  |  1988-08-17  |  2KB  |  87 lines
  1. read trui a
  2. * copy
  3. copy a b
  4. * wrap, position (17,31) becomes (1,1)
  5. copy a b 17 31
  6. * reduce 2x horizontally 
  7. *          outdxoutdy 
  8. *         indxdydXdY   
  9. copy a b 1 1 2 0 0 1
  10. * reduce 3x vertically
  11. copy a b 1 1 1 0 0 3
  12. *reduce hor. and vert.
  13. copy a b 1 1 2 0 0 2
  14. * skew up
  15. copy a b 1 1 1 1 0 1
  16. * skew left
  17. copy a b 1 1 1 0 1 1
  18. * skew right
  19. copy a b 1 1 1 0 -1 1
  20. * reflect horizontally
  21. copy a b 256 1 -1 0 0 1
  22. * reflect vertically
  23. copy a b 1 256 1 0 0 -1
  24. * upside down
  25. copy a b 256 256 -1 0 0 -1
  26. * transpose
  27. copy a b 1 1 0 1 1 0
  28. * symmetrize right half
  29. copy a b
  30. copy b b 256 1 -1 0 0 1
  31. * symmetrize lower half
  32. copy a b
  33. copy b b 1 256 1 0 0 -1
  34. * point symmetrize lower half
  35. copy a b
  36. copy b b 256 256 -1 0 0 -1
  37. * tilt atan 1 = 45 degrees
  38. copy a b 127 127 1 1 -1 1 
  39. * tilt atan -1 = -45 degrees
  40. copy a b 127 127 1 -1 1 1
  41. * tilt atan -2
  42. copy a b 127 127 1 -2 2 1
  43. * tilt atan -1/2
  44. copy a b 127 127 2 -1 1 2
  45. * inverse copy
  46. copy b c -127 127 2 -1 1 2
  47. * reduce 4x hor.and vert.
  48. copy a b 1 1 4 0 0 4
  49. * X<0 codes for inverse copy.
  50. * inverse copy makes multiple 
  51. * writes at point pattern.
  52. * only lower right block is
  53. * copied.
  54. * this can be used to blow:
  55. * for center position 160,60
  56. * bring lower right 160+31,60+31
  57. * of 64x64 area to be blown to
  58. * lower right 256,256 of
  59. * lower right block
  60. * by wrap over 160+31+1=192,92
  61. copy a c 192 92
  62. copy c d -1 1 4 0 0 4
  63. lmax d d 4 8 
  64. * or to block
  65. copy b c -1 1 4 0 0 4
  66. lmax c d 3 8
  67. * filling block image
  68. lmax c c 4 8
  69. * point pattern
  70. copy b c -1 1 4 0 0 4
  71. * wrap 2,2 down and right
  72. copy b d 255 255
  73. * Y<0 codes for stamping.
  74. * wrap 2,2 down and right and
  75. * point pattern stamped into c
  76. copy b c -255 -255 4 0 0 4
  77. * plot image line
  78. clear b
  79. copy a c
  80. copy b c -1 -60 1 0 0 0
  81. shad d 255 255 0 0 0 0
  82. copy a b 1 60 1 0 0 0
  83. sub b d 0
  84. th d d 1 0
  85. cont 1 0 d
  86.  
  87.